home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / sal100.zip / SHAKER.SRC < prev    next >
Text File  |  1993-05-29  |  327b  |  22 lines
  1. void shaker()
  2. {
  3.   int a;
  4.   int b;
  5.   int c;
  6.  
  7.   a = ARRAYSIZE-1;
  8.   b = 0;
  9.  
  10.   do
  11.   {
  12.     for (c = b; c < a; c++)
  13.       if (Vektor[c] > Vektor[c+1])
  14.         SwapNumbers(c,c+1);
  15.     a--;
  16.     for (c = a; c >= b; c--)
  17.       if (Vektor[c] > Vektor[c+1])
  18.         SwapNumbers(c,c+1);
  19.     b++;
  20.   }
  21.   while (a >= b);
  22. }